1) DVITYP.WEB[PAS,DEK] and 2) DVITYP.WEB[WEB,ALS]	8-12-82 14:39	pages 1,1

**** File 1) DVITYP.WEB[PAS,DEK]/12P/8L
1)	begin print_ln('Postamble starts at byte ',pst_loc:0,'.');
1)	@<Compute the conversion factor@>;
**** File 2) DVITYP.WEB[WEB,ALS]/12P/8L
2)	print_ln('Postamble starts at byte ',pst_loc:0,'.');
2)	@<Compute the conversion factor@>;
***************


**** File 1) DVITYP.WEB[PAS,DEK]/12P/17L
1)	end
1)	@ The conversion factor |conv| is figured as follows: There are exactly
**** File 2) DVITYP.WEB[WEB,ALS]/12P/18L
2)	@ We put the above module into a subprocedure to make a substantial
2)	reduction in the size of the main procedure, which would be otherwise
2)	marginally too large for some compilers.  We do this rather than making a
2)	barely adequate fix because we want to gain the freedom to make minor
2)	changes to the program in the future without having to worry about slight
2)	increases in program size.
2)	@<Declaration of subprocedure to read the |postamble|@>=
2)	procedure read_postamble; {reads translates and checks the |postamble|}
2)	var k:integer; {loop variable}
2)	begin
2)	@<Read, translate, and check the postamble@>;
2)	end;
2)	@ The conversion factor |conv| is figured as follows: There are exactly
***************


**** File 1) DVITYP.WEB[PAS,DEK]/13P/5L
1)	@p begin initialize; {get all variables initialized}
1)	dialog; {set up all the options}
1)	@<Do a quick look...@>;
1)	@<Read, translate, and check...@>;
1)	if start_loc<0 then print_ln('The starting page could not be found!')
**** File 2) DVITYP.WEB[WEB,ALS]/13P/5L
2)	@p @<Declaration of subprocedure to read the |postamble|@>@;
2)	begin initialize; {get all variables initialized}
2)	dialog; {set up all the options}
2)	@<Do a quick look...@>;
2)	read_postamble;
2)	if start_loc<0 then print_ln('The starting page could not be found!')
***************